Top 10k strings from 16-48 Magazine - Issue 21 (1985)(16-48 Tape Magazine).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
9 y=y+(y<175
9 x=x+(x<255
9 RUN THE TAPE
9 PRESS A KEY
9 ((((((((((
8 STOP THE TAPE
8 GGGGGGGGGGGGGGGG
7 o,o;"PRESS
6 LET THE TAPE RUN
5 z$="00000202
5 UUUUUUUUUUUUUUUU
4 ```````````````
4 ;"Press C to continue."
4 ,s;" "
4 );" "
4 copies.)"
3 z$="10030203STOP THE TAPE":
3 z$="08000203
3 z$="00000204
3 l=l+(k$="6"
3 `9.95 Print'n'Plotter Products.
3 SEPTEMBER
3 PAINT PLUS
3 Chiswick, London W4 4PH.
3 ;"padcode"
3 ;"lib2code"
3 ;"lib1code"
3 ;"Ludoid7
3 ;" <<< HIT ANY KEY >>> ":
3 16/48 Magazine,
3 10 Barley Mow Passage,
3 ********************,,,,****
3 ********************,,,*****
3 (((VVVVVVVV
3 ((((((((((((((((((((((((((((
3 "Nothing happens":
3
2 z=prog+291
2 z$="10030203RUN THE TAPE":
2 z$="10020203
2 z$="10000212SIDE
2 z$="08000402
2 z$="04030104
2 pos=exit-i
2 l=l+(l<max)*(k$="6"
2 k$="7")*(y+yy<167
2 k$="6")*(y+yy>7
2 k$="5")*(x+xx>7
2 i,o;"HIT A KEY(
2 a$=" "
2 `12.95 Softek International Ltd.
2 ZERO COMPRESSION
2 YY
2 UUUUUUUUUUUUUUUUUUUUUUUUUUUUU
2 UUUUUUUUUUUUUUT
2 UUUUUUUUUUUUUUP
2 TOWER LOADING
2 Press any key
2 PRESS ANY KEY
2 London."",""01 353 0246"",""CODE"""
2 KUUUUUUUUU
2 GENERAL NOTES
2 Fleet Street
2 About `144 BRITISH MICRO Ltd.
2 ;"wincode"
2 ;"press R to return to menu."
2 ;"padinst"
2 ;"library 2"
2 ;"library 1"
2 ;"________________________________"
2 ;"Use up and down keys to read thenotes.
2 ;"TOWER.SCR"
2 ;"TOWER.COD"
2 ;"TO WHICH BASE?"
2 ;"REVIEWS"
2 ;"NUMBER BASE=";n
2 ;"INPUT NUMBER IN BASE ";n
2 ;"CROSSWORD":
2 ;"BEGIN 4"
2 ;"BASE=";b
2 ;" PRESS ANY KEY "
2 ;" "
2 ;" "
2 88888888888=888
2 888888888888888
2 ,s;" ";
2 +UUUUUUUUU
2 +UUUUU"""""
2 +"""""""""
2 ****************************
2 *(x+xx<254
2 (/////////
2 '''"Press any key to start again."''"
2 "lib2code"
2 "lib1code"
2 "You cannot":
2 "M/drive No? (
2 "Lots of these followed by...","9000
2 "I cannot help you":
2 "ENTER file name";n$
2 "16",s;" ";
2 ""R Maxwell Esq."",""c/o Sinclair Research,
2 ""END""","The end marker."
2 """""UUUUU
2 " You have just keyed in an incorrect base. Please use lower case letters and numbers."
2 to page backwards."''"
2 to cancel. "
2 to abort.)"
2 for the menu,
2 for tape.)";d:
2 for UDG's.(
2 TOO LATE
2 START THE TAPE
2 CONCLUSIONS
2
2
2
2
1 zzzzzzz:z*((((
1 zzzzzzz::*((((
1 zxxxxxxzWW
1 zxxxxxxxGG
1 z$=l$+c$+h$+v$+
1 z$="220119220121418"
1 z$="21000201
1 z$="19150202
1 z$="18140103
1 z$="16130203
1 z$="14200202&":
1 z$="13010505CORNER":
1 z$="12030204
1 z$="12000410
1 z$="12000204Let the tape run":
1 z$="11220203MINISUB":
1 z$="11140203
1 z$="11060203Ludoids":
1 z$="10050103
1 z$="08240102Chapter 7":
1 z$="08030201#17
1 z$="08010302
1 z$="08010202
1 z$="06030205INSTRUCTIONS":
1 z$="06020305BEGINNER'S":
1 z$="0110020216/48":
1 z$="0108020216/48PAD":
1 z$="01020104
1 z$="00050202THE SPACING":
1 z$="00050102WRITING BETTER BASIC":
1 z$="00040202THE PROGRAM":
1 z$="00030202MODIFICATIONS":
1 z$="00020402WINDOWS":
1 z$="00020402DRAWING":
1 z$="00020402BYE BYE":
1 z$="00010602MODES":
1 z$="00010502
1 z$="00010302THAT'S IT!":
1 z$="00000802TEXT":
1 z$="00000802DATA":
1 z$="00000802
1 z$="00000402THE KEYS":
1 z$="00000402PROBLEMS":
1 z$="00000402
1 z$="00000202HOW DO WE DO IT?":
1 yy=yy+(k$="e")*(y+yy<175
1 young, nor the
1 you the next page could be of
1 you own this game and this
1 you have to do some welding.
1 y$="You see ":
1 y$;"the LUDOID| city.":
1 y$;"a depth indicator &"'"controls to go up,down,foreward,port(left),right(starboard),and fire a torpedo.":
1 xx=xx+(k$="f")*(x+xx<255
1 xx=xx+(k$=
1 x=x+(k$="f")*8
1 x,y;b$(n);:
1 will need another type of gizmo
1 very useful
1 ull member who has paid fees up to December 85 and who gets the
1 turned into Gremlins by eating
1 to your problem.":
1 to open this.":
1 time=time+i:
1 time*.8533334/10";" Minutes."'
1 time*.85333334
1 thesaurus is a
1 the ventilation system. Then
1 the story where Gizmo has
1 the roof of the store and drop
1 the charm of these Jekyll and
1 that a location would have to beto the N, S, E or W, but none ofthese will get you there.":
1 tex=tex-(tex>o)
1 tex=tex+i:
1 tex=tex+(tex<12
1 t$="a s 10100n00Ggg
1 t$=" I am sorry but you have got some wrong - repeat the exercise - it is essential that you fully understand number bases before proceeding! "
1 t$=" Well done perfect score - you may now consider yourself a number base expert "
1 storing data is in a program
1 some help. If you need help justpress the option corresponding
1 simply blow them up. If things
1 sensitive.
1 raw mode the direction and cursor keys will move the flashing cursor."''"Pressing CAPS SHIFT at the same time as any direction key will leave an ink line on the screen."''"Pressing SYMBOL SHIFT will eraseany ink in the path of the cursor."
1 raw mode the cursor is movedby pixels with the
1 quality of the coding and theirsize made them good
1 q$="PERI":
1 q$="HATC":
1 q$="CONT":
1 produced Stripe and his pals by
1 pos=pos-23
1 pos=pos+dir:
1 picture of Gizmo on the games
1 picture is all too familiar to
1 page turner
1 padinst D
1 padcode I
1 p=pos-31000
1 outside into the sunlight.
1 o,o;"Press frame number (
1 o,o;"PRESS frame number.
1 o,o;"PRESS frame number of screen to be added. (
1 o,o;"PRESS 1 2 3 4 5 6 7,
1 o,o;"Cursor keys scroll attributes.
1 o,o;"Cursor keys change size, Delete backspaces, ENTER finishes. ";g$
1 o,o;"CLEAR SCREEN. ARE YOU SURE? (Y/N) "
1 o,o;"ARE YOU SURE YOU WANT TO QUIT? (
1 o,o;" Press
1 o,o;" PRESS ANY KEY TO PAUSE "
1 medium sized adventures.The
1 main rouitine
1 machine code routines.","BEGINNERS' CORNER looks at handling DATA and shows how to make up your own data base."
1 m$=m$+n$(j)
1 listing. The most efficient way of doing this is to use the DATAstatement."
1 library 2
1 library 1 j
1 lib2code
1 lib1code
1 letter
1 ladder to reach the trap door.":
1 l,o;"Well, the Mysterious
1 l,o;"Do you remember the
1 l,o;"But then, how can anyone resist
1 l,o;"Brian has deserted this series
1 l$;" You are killed":
1 l$;" You Drown.":
1 l$'" You cannot, it is flooded below.":
1 knifes normally in a house?":
1 kitchen and keep pressing the
1 k$="8")*(xx+x<247
1 k$="8")*(x+xx<248
1 k$="7")*(yy>8
1 k$="6")*(y-yy>0
1 k$="5")*(xx>8
1 item to have in one's lap while playing them.":
1 it. No, Not the one that uses
1 introductions to adventure
1 ii,o;"The routine at 22AAH in the ROM is called with the y co-ordinatein the B register and the value for x in the C register."
1 i,o;"(((((( (!(""(#($(%(&('(((((((((((":
1 him by the vent. You need the
1 heads in liquidisers don't make a pretty sight.":
1 haven't been impressed. However,there is one adventure that I
1 getting wet and they have now
1 games. Although in some cases a
1 first part of anim prog
1 exit=exit+(
1 excellent
1 everything.":
1 ensioners' special discount."
1 empire, translating the
1 edit
1 e+i;" ":
1 don't fit use some tape.":
1 display subroutine
1 direction keys
1 did enjoy.........":
1 d$="ns u":
1 d$="ns d":
1 d$=" "
1 comp21
1 collection of well designed,
1 chute in the kitchen. But you
1 challanging central puzzle. If
1 cassette inlay, this is a very
1 c=c+(k$="8"
1 c$="GO FORE":
1 c$="GO AFT ":
1 c$="
1 button. Remember to examine
1 bloodthirsty adventure.
1 bases
1 b=back a screen
1 b$="Press any key to transmat to the minisub":
1 b$="Press I for instructions,P for a Print- out, and S to save this program. (C Continues)":
1 b$=" BFX-1 BY Neil Stevens
1 as you can see, are excellent,
1 and some are animated.":
1 and kill the Gremlins. ":
1 and is now working for AdventureInternational, the Scott Adams
1 agazine Ltd. *6\$:
1 a$="LEVE":
1 a$="FIRE":
1 a$="DETEC":
1 a$="CHEST":
1 a$="612110110112114113113x12113612110110112114113113x12113":
1 a$="500104108104105100501105109105106101507105103x04103102101500":
1 a$="404114x12x14104504110110x12110504":
1 a$="135135138134135135138134":
1 a$="122124x05x07x06120122124x05x07x06120":
1 a$="122112116122112116":
1 a$="
1 a$,t$,c$","read address into a$, telephone number into t$ and code into c$.","60 IF c$(2
1 a$","Print Name and address."
1 a late night snack. You play therole of the only human.
1 ``FFFF pPFDDFPp`00000
1 ^ BIGPRINT CODE HERE ^
1 Z$="LLCC0202"+A$(N,1
1 Z$="20000102
1 Z$="19100101
1 Z$="16000104STATEMENT IN LINE 1.":
1 Z$="15080103S = SAVE CODE":
1 Z$="14000201=============":
1 Z$="13000201SOUND ROUTINE":
1 Z$="12071010
1 Z$="12000104BIGPRINT IS LOCATED IN REM":
1 Z$="11080103R = READ AGAIN":
1 Z$="09000102Dear 16/48,":
1 Z$="08020304STOP TAPE":
1 Z$="08000104ROUTINE FROM ISSUE 19.":
1 Z$="07040103L = LOAD NEXT PROGRAM":
1 Z$="07000201===========":
1 Z$="06000201CLS ROUTINE":
1 Z$="04000104THANKS TO 16/48 FOR BIGPRINT":
1 Z$="02000202========":
1 Z$="01010221
1 Z$="01000201=============":
1 Z$="00000420BYE BYE!":
1 Z$="00000202BIGPRINT":
1 Z$="00000201CHARACTER SET":
1 Z$=" YCC0202"+A$(N,Y/2
1 Your task is to save the town
1 Y6-!,Y6-#6-!LY6$#6$!lY6$#6$!
1 Y6-!(Y6-#6-!HY6$#6$!hY6$#6$!
1 XXXXXXX XXXX X X X XX XXXXXXXXX X X X X XXXXXXX XXXX X X X X XXXX XXXXXXX X X X X XXXXXXXXX XX X X X XXXX XXXXXXXC.
1 What if I have too much data to fit into one program?
1 WINDOW SCROLLING ROUTINE
1 WINDOW SCROLLING
1 WINDOW SCROLL
1 VVVV((((((((((((((((((((((((VVVVVVVV(((((((((((8888(.......(VVVVVVVV(88888888888888(.FFFFF.(VVVVVVVV(88888888888888(.F600F.(VVVVVVVV(88898888888888(.F000F.(VVVVVVVV(88899998888888(.F000F.(VVVVVVVV(88899999888888Gpp000F.(VVVVVVVV(888888998pxxxxxppppFF.(VVVVVVVV(888889998xxxxxxxFpp...(VVVVVVVV((((((((((xxxxxxx@@(((((VVVVVVVV((((((((((xxxxx~G@@@((((VVVVVVVV((((((((((xxxx
1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
1 UUUUUUUUUUUUUUUUUUUU""""
1 UUUUUUUUUUUUUUUUUUUU
1 UUUUU"""""
1 Then make a gas bomb. Now
1 The graphics, by Teoman Irmak,
1 The author of the series?":
1 TOWER.SCR
1 TOWER.COD
1 TOWER.BAS N
1 TOWER OF HANOY
1 THE NEXT PROGRAM ON THIS TAPE!!!
1 THE KING WHO SERVED UP JOHN'S HEAD TO SALOMEK
1 SCREEN COMPRESSION ROUTINE
1 SAVING CODE FROM 31780 TO 32598
1 SAVE""wincode""CODE 32000,33
1 S$="XXXXXXX XXXX X X X XX XXXXXXXXX X X X X XXXXXXX XXXX X X X X XXXX XXXXXXX X X X X XXXXXXXXX XX X X X XXXX XXXXXXX"
1 ROP can copy from memory as many times as you like."
1 RIGHT";b;"
1 REVIEWS
1 REVIEWS
1 RAW mode and from this mode you can select
1 QUIT ROUTINE
1 Program by B.C.Thorne September 1984*K\~
1 Paul Miller in London SW15,
1 PRINT WORD
1 PRINT CLUE
1 PRESS THE ENTER KEY TO REPLAY
1 PRESS R to read again
1 PRESS L to load the next program"
1 PRESS B to go Back to page 8
1 POPULAR DEMANDS
1 PLEASE STOP THE TAPE
1 P L Cahill on Haywards Heath,
1 OOOOOxxxFF
1 OOOOOOOOOOOOOOOONONOOJJJBGGWWWWWOONOOONOOONOOONOOOOOOJJWBGFWWWWWOOOONOOOOOOOOOOOOOOOOJWVBGFWWWWWNOOOOOOOOOOOOOOOOOOJzyWVBGGWWWzWOOOOOHNOOOOOOOOOOOOQPBWVBGFPPWxxxHOOOHOOOOOONOOOOOOQPzzWBGFPPzxx
1 Next month a look at
1 NOSTALGIA?
1 Mysterious
1 Miss N K Doraismay of Shenly."
1 Michael Kirkland in Prescot,
1 MODE to manipulate the screen."
1 MODE and starts from the position of the attribute cursor."
1 MODE to work on the attributes or
1 MEM","","
1 M/CODE LIBRARY 2
1 M/CODE LIBRARY 1
1 London EC1"",""01 539 0246"",""FDEC85P"""
1 LWH Volume 2
1 LUDOIDS #7
1 LIBRARY 2
1 Kieran Tracey on the Isle of ManPaul High in Chelmsford,
1 INPUT WORD
1 ICK will put the contents of the window into memory and that
1 I've seen the Quest Probe series(Hulk, Spiderman etc.) and I
1 Hyde-Cabbage Patch-Wombles?
1 HIT ANY KEY
1 GpppwwppGG
1 Godfather of Adventures' titles over to the Spectrum. So far,
1 Gerald Pocock in Glasgow,
1 GRAPHICS REVIEWS
1 GGxxxxxxxxxGGG
1 GGGxxxxxxxGGGG
1 GGGGGxxxxGGGGG
1 GGGGGGGxGGGGGG
1 GGGGGGGGGGGGGpFppwF
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGDDDDDDDDDGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGGGGGEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEEEGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGBrtlhG
1 GGGGGGGGGGGGGGGGGGBrtlhGG
1 GGGGGGGGGGGGGGGGGBrtlhGGGGG
1 GGGGGGGGGGGGGGGGBrtlhGGGGGG
1 GGGGGGGGGGGGGFppwwp
1 GGGGGGDDDG
1 GGGGGBrtlhGGGGGGGGGGGGGGGGGG
1 GGGGBrtlhGGGGGGGGGGGGGGGG
1 GGGFFGGGGGxGxxppwF
1 GGFppFG0000
1 GGBrtlhGGGGGGGGGGGGGGGGGGG
1 GFpppwpGGGGxxGGxFpp
1 GBrtlhGGGGGGGGGGGGGGGGGGG
1 FpwppG000000
1 FpppppxxxxxGxxFppG
1 F```D D```
1 F```D D``0
1 FRANK BRUNO'S BOXING
1 FFOOOOOOOOFFFFFFFFxxxxxxx
1 FFFxxxxxx8
1 FFFFxxxxxxx8
1 FFFFFOOOOOOOOFFFF
1 FFFFFFFFxxxxxxxy
1 FFFFFFFFxxxxxxxx
1 FFFFFFFFxxxxxxxO
1 FFFFFFFFFFFFGFF
1 FFFFFFFFFFFFFFFF
1 FFDDD````FF000 pPFD0D`FGGG``
1 FDDDDDDDDDDFG
1 F pPFDDFPp`000
1 F pPFDDFPp0
1 EXPANSION LISTING
1 ELITE COMPETITION,
1 ELITE COMPETITION
1 Duracells.":
1 Don't let him get near any
1 Do you remember
1 David Ward in Dartford,
1 D``````DD000000FFFFFF000
1 D``````DD000
1 D````F```````D0
1 DEMONSTRATION
1 DDppppGGFFGBBBBBBBBBBBBBBBDDBBBBBBpppPBBBBBBBBBBBBBBBBBBBBBBBBBBBB`ppPBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBGBBBBBBBBBBBBBBBGGBBBBBBBBBBBBBB
1 DD``D```0000
1 DD``D```000
1 DDFGGDDGGFDDG
1 DDDDFFFFFFF```D D```
1 DDDDDDDDGGBBBB
1 DDDDDDDDDFG
1 DDDDDDDDDDDDDDDD""""""""""""""""
1 D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 D&GPIX
1 Congratulations !
1 Certainly not for the very
1 Can you help find me??":
1 CROSSWORD
1 CROSSWORD
1 CONGRATULATIONS!
1 COMPRESSION LISTING
1 COMPETITION
1 CHECK FOR FINISH
1 CFFFFFFFGx
1 CADAVER 1 1 6 00HAM 1 9 2 00NOVEMBER 3 4 7 00OILRIG 5 1 5 00URGE 5 8 3 00ACTS 7 1 3 00CALIPH 7 6 5 00ZEPPELIN 9 1 7 00COS 111 2 00LINSEED 115 6 00CONGO 1 1 4 10ANZAC 7 1 4 10PLATYPUS 4 3 7 10VIOLIN 1 5 5 10PEEL 8 5 3 10REEF 1 7 3 10MARIAN 6 7 5 10HIBERNIA 1 9 7 10MORSE 1 114 10HEROD 7 114 10W
1 C$=C$+" ? ":
1 C$="WAIT FOR A WHILE":
1 C$="QUIT GAME":
1 C$="INVENTORY":
1 C$="HELP":
1 C$="GO WEST":
1 C$="GO UP ":
1 C$="GO SOUTH":
1 C$="GO NORTH":
1 C$="GO EAST":
1 C$="GO DOWN":
1 Bubble Bus
1 Brian Howarth
1 BFXudg
1 BFX-1 ,
1 BFX
1 BEGIN 4 q
1 B.C.THORNE APRIL 1983*S\
1 B$=B$+"
1 Animated Gremlins with their
1 Adventures
1 Adventure games were a
1 ASSEMBLY LISTING
1 ARRAY AND NT E E R UT A LOGICALRED L U LI COMMA SBIN W E BITU E IN E RT X T E IEXTEND OPEN O O E GOR RETURN
1 AOOOHOOOOOOOOOOOOOQP
1 AOOOHOOOOOOOOOHHxxQP
1 AOOHHOOOOOOOyyxxxxxxxxxxxxxxxxxxxxxGGGGGGGGGxxxxxxxxxxxxxxxxxGxxxxGGGGGGGGGGGxxxxxxxxxxxxxxxGGx
1 AOOHHOOOOOOOOOOAGGGxxxzzxxxxxxx
1 A$="DEPTH":
1 A$=" STEVEN HAYWARD 29,HENWOOD ROAD, COMPTON, WOLVERHAMPTON WEST MIDLANDS WV6 8PQ"
1 A W Mason in Ipswich,
1 A Stevens in Hastings and
1 = QUIT MENU "
1 ;tex+i;"/10 pages"
1 ;n(k);" is a denary number"
1 ;g$;" IN BASE ";b1
1 ;b$;" IN BASE ";n;" = ";num;" denary."
1 ;a$;a$;a$;a$;a$;a$;a$;a$;
1 ;"w=17 characters";
1 ;"padinst":
1 ;"library 2":
1 ;"library 1":
1 ;"letter":
1 ;"You must pick it up first. Press any key to continue. ":
1 ;"YOUR RESPONSE=";a$:
1 ;"YOUR RESPONSE=";
1 ;"YOU HAVE JUST TYPED A NUMBER WHICH IS NOT VALID FOR THIS BASEPLEASE START AGAIN. "
1 ;"Which base?";c$
1 ;"What is it in denary?"
1 ;"What is it in base ";b(k);"?"
1 ;"What are you going to do ?"'"
1 ;"What are you going to do ? ","
1 ;"We start our library with a muchrequested routine to compress the display file."
1 ;"WELL DONE";
1 ;"WELL DONE"''"YOU SCORED ";time'''
1 ;"Verified O.K. Press any key. ":
1 ;"Use up and down keys to read thenotes. Press
1 ;"Use the up & down keys for the details. (
1 ;"Therefore denary number=";num
1 ;"The code starts at 32000 and it is 87 bytes long."
1 ;"Take as much time as you need - use pencil and paper to work outyour answers - the objective is a perfect score. Repeat the exercise if you get any wrong."
1 ;"TOWER.BAS"
1 ;"Sorry this program has been"'"copied once already":
1 ;"Saved and verified O.K. Press any key.":
1 ;"SEPTEMBER 1985
1 ;"Rewind and play to verify.":
1 ;"RIGHT CLS,N=63"
1 ;"REVIEWS":
1 ;"Products:"
1 ;"Press any key to repeat process "
1 ;"Press a key":
1 ;"Press R to return to menu."
1 ;"Press R to return to menu"
1 ;"PRESSING ANY KEY DURING LETTER WILL INCREASE THE SPEED.
1 ;"PRESS the letter you wish to define.
1 ;"PRESS frame number.
1 ;"PRESS ANY KEY TO LOAD THE GAME..":
1 ;"PRESS A KEY":
1 ;"PRESS A KEY (
1 ;"POKE 32573,NUMBER OF REPEATS":
1 ;"POKE 32559,N LEFT CLS,N=39";
1 ;"POKE 23607,123"
1 ;"POKE 23606,36";
1 ;"Number:"
1 ;"Number base demo--up to base ten"
1 ;"NUMBER BASES";
1 ;"NOTE"'a$;a$;
1 ;"MOVE CLOCKWISE - ";
1 ;"MOVE ANTI-CLOCKWISE - ";
1 ;"LUDOIDS #7":
1 ;"LUDOIDS #7"
1 ;"LENGTH = 768"
1 ;"LENGTH = 27"
1 ;"LENGTH = 24"
1 ;"Issue 12 is now a collectors' item. It was a Christmas issue which sold out in record time. So I regret to say that it is nolonger available."
1 ;"Input number in this base ";c$:
1 ;"Input base you are working in. "
1 ;"ILLEGAL KEYBOARD ENTRY---------RESTART AFTER RETURN TO MENU---."
1 ;"ILLEGAL ALPHABETICAL ENTRY------please try again. "
1 ;"FORWARD - ";
1 ;"Don't forget that we pay between`20 and `100 for published programs and `10 for letters. (Do enclose a stamped envelope if you want your tape returned.)The editorial address is
1 ;"Denary:"
1 ;"DENARY NUMBER=";n
1 ;"DENARY ";s;" IN BASE ";b;" =";m$;" "
1 ;"CROSSWORD"
1 ;"Base:";n
1 ;"BFX-1 IS LOADING.........."
1 ;"BEGIN 4":
1 ;"At a recent ZX Microfair the 16/48 stand spent much of the day hidden behind a throng of readers. It was good to see so many of you again."
1 ;"Answer the following questions- "
1 ;"ARE YOU SURE YOU WANT TO QUIT? PRESS Y FOR YES OR N FOR NO."
1 ;"APS drops a king size clanger. Unfortunately a program was missed out in the in the final production stages of issue 20. The missing program 'MC LIBRARY'has been placed on the end of side 2 of this tape. APS would like to apologize for any inconvenience caused."
1 ;"ANSWER=";x(k)
1 ;"ANSWER=";p$(k)
1 ;"ALL CODE RE-LOCATABLE"
1 ;"ADDRESS = 32572";
1 ;"ADDRESS = 32548";
1 ;"ADDRESS = 31780";
1 ;"=";m$;" IN BASE ";b
1 ;"6. Quit."
1 ;"5. Number base - demonstration."
1 ;"4. Number base test."
1 ;"3. Convert any base to any base."
1 ;"2. Convert any base to denary."
1 ;"16/48PAD":
1 ;"16/48PAD"
1 ;"16/48D&G21":
1 ;"16/48D&G21"
1 ;"1. Convert denary to any base."
1 ;"** INSTRUCTIONS **"
1 ;"(Try BREAK and experiment.)
1 ;" YOU ARE GIVEN A VIDEO PICTURE OF THE ROBOT AND THE MAZE IN 3D . AS YOU MOVE AROUND THE RANDOM MAZE YOUR PATH IS DRAWN AS A MAP FOR YOU . YOUR TIME TAKEN IS ALSO SHOWN . "
1 ;" YOU ARE EMPLOYED AS HEAD OF TESTING AT SINCLAIR RESEARCH. YOUR CURRENT TASK IS TO TEST A SMALL ROBOT CODE NAMED
1 ;" STOP THE TAPE":
1 ;" START THE TAPE "
1 ;" PAPER";
1 ;" Input base you are working in. "
1 ;" FOR THE ZX-SPECTRUM "
1 ;" A 3D MAZE GAME ";
1 ;" UNIVERSAL NUMBER BASE TUTOR "
1 ;" Press number of your choice. "
1 ;" Number base conversion test. ":
1 ;" Input number in denary then press ENTER. (integers only) "
1 ;" Press any key to continue. "
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" ":
1 ;"
1 ::888888888
1 90","Subs are not due so skip the printing.","70
1 8::::8888888888
1 888888888888==888
1 8888888888888=888
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888
1 888888888888888888
1 8888888888888888
1 88888888888888800000000
1 8888888888888880000
1 888888888888880000000000
1 8888888888888000000000000
1 8888888888888
1 88888888888800000000000000
1 6 (print comma)into the string which makes the next character appear at column 16 or on the next line if you are past column 16. So do it twice after a short line."
1 50024
1 50000 SOUND =
1 48976 CLS =
1 32048 will expand the file back onto the screen."
1 32000 will perform the compression and return with the end address of the compressed file in x."
1 2222222222222222222442222222111022222222222222222222222222221222222222222222222222222
1 16/48PAD
1 16/48PAD
1 16/48D&G21+
1 16/48#21/2
1 16/48#21/1V
1 16/48 script
1 00000D`F000
1 0000000088:::::8888888
1 000000000000000000000006000000000000000000000000000000000000000000000000000000000000000000000000000000000008000800000000000000000000000000000888888888000000000000000000000088888888880000000000000000000
1 00000000000
1 ///00000000000000000000000000000///
1 -)/------/)---/----)
1 -((VVVVVVVV
1 -(((VVVVVVVV
1 +(k$>"5")+(k$="6")+2
1 +"""""UUUUU
1 ****TEXT***TEXT********
1 *******//////***************
1 ********////)(**************
1 *********/*//***************
1 *********,+++******,,4422222
1 **********++,******,,,,,****
1 **********++*******,,,,,****
1 **********++********,,,,****
1 *******************,,,,,****
1 ********************,,*,,***
1 *********************,******
1 ************************ **
1 *********)*)()**************
1 *********)(**********,******
1 ********(**(********,,,,****
1 *(k$="x")*(y-yy>0
1 *(k$="k")-.2
1 *(k$="j"):
1 *(k$="e")*(y<175
1 *(k$="b"):
1 *(k$="a"):
1 *(k$="7"))
1 *(k$="4")+(k$>"4")*10
1 *(k$="3")+12
1 *(k$="1")+6
1 *"m";m;m$:
1 );"hours ";
1 )-(k$="x")*(y+yy>0
1 )-(k$="s")*(x>7
1 )-(k$="s")*(x+xx>0
1 )*(y+yy<175
1 )*(y+w<167
1 )*(x+xx<255
1 )*(x+w<247
1 )*(x+h<256
1 )*(l<max)-(k$="7"
1 ));"Minutes."'"PRESS ANY KEY (
1 ))))-g,140
1 ))))))))))))))///////////
1 )))))))))))))))))))))))////////
1 )))))))))))))))))
1 ) to store. Press
1 (w$(k));" is a base ";v(k); " number"
1 (pos+dir)=32
1 (b$(j))-v)*e
1 (a/256)"'"To display the file poke the same two numbers into 32049 and 32050 respectively."
1 (a/256) POKE 32005,a-256*
1 (//////)//
1 (////))))////////////////
1 (///)))))))//////////////
1 (/))))))))))/////////////
1 ((prog+474
1 (((VVVVVVVV((((((((@
1 (((VVVVVVVV(
1 (((VVVVVPPV(((((((((@xxxxxwpp
1 (((VPPVVVVV(((((((((@xxzxx~G
1 ((((VVVVVVVV
1 ((((((((((((((
1 (((((((((((((
1 (((((((((((
1 'UNDERGROUND'
1 ''''"In most modes you have two ways of moving the cursor, boxes, windows or circles."
1 '''"This month we look into ways of using your Spectrum to store andretreive useful data."
1 '''"There are 3 modes. This may seemconfusing, but the availability of each mode is always clearly advertised at the bottom of the screen."
1 '''"The only thing which you need toremember here is that
1 '''"The least confusing way of
1 '''"Text entry is accessed from the
1 '''"Obviously you can change line 50so that it selects any desired feature from the code string. For example..."
1 '''"Most of this should be much clearer when you see the programin action. Especially as the options are displayed on the screen at all times."
1 '''"In the
1 '''"I hope you find this useful. If not, then the remedy can still be supplied."
1 '''"Each member can have a data lineto his or herself and updating the codes or adding new members will be simple."
1 ''"To give the program some useful flexibility our example will useDATA lines to store 4 strings for each entry. Name, address, telephone Number and a coded string with room for extra information."
1 ''"The cursor keys (on good o'l rubber keyboards keys 5-8) move the cursor by 8 pixels at a timefor faster movement."
1 '"You start in
1 '"You must use the cursor keys to select the size of text you wishto use."''"This is the one occasion when the rubber key owner must use the CAPS SHIFT with keys 5-8. This is because the unshifted keys will simply print the numbers."
1 '"When transferring the display file to memory the routine will stop every time it finds a zero.After transferring the zero it will count the number of zeros which follow and transfer the number it counts."
1 '"We would very much like to make the Beginner's Corner responsiveto your particular problems."
1 '"We won't pretend to compete withcommercial buisiness packages. What we can do is show you how your Spectrum can be easily programmed to provide a useful, data base: one which will have the distinct advantage of being simple and comprehensible."
1 '"We will use a list of names and addresses as an example. Club secretaries and prolific writersof Christmas cards take note."
1 '"WRITE down the sequence of key presses and send it in to-"
1 '"Two requests were repeated with some regularity. One was the oldfamiliar plea to get rid of the glue. This (I hope!) has been dealt with, the other was ""Have you got issue 12?""."
1 '"To store the compressed file at any other address(a) you can- POKE 32004,
1 '"To find a telephone number you could edit line 60 to.."''"60 IF n$=""B SMITH Esq.""
1 '"This will only print labels for letters to pensioners who are full members."
1 '"There are exits visible;"'("Fore,"
1 '"The subroutine returns with the address of the screen byte in the HL register pair. (It also puts the pixel position within that byte into the A register, but we will ignore that in this program.)"
1 '"The scroll uses CALL 22AAH to get the address of the start of each row of pixels into DE and the address of the row beneath into HL. Then it moves the lowerrow up with LDIR."
1 '"The routine calls a very useful routine in the ROM. This residesat 22AAH (8873 decimal) and is used to find the screen address of any pixel."
1 '"The last string might mean that the boss of Sinclair Reasearch is a
1 '"The coordinates from last month are for a LUDOID| Sea City."'"We have Transmatted a minisub"'"near to there. You must torpedo the city."''"Good luck,"'"Hope the sub survived the"'"journey!"
1 '"The compression routine stores the compressed display file at 32090. LET x=
1 '"The code is not relocatable. I recommend using an assembler if you want to relocate.";#1
1 '"Since this is the only CALL, thecode is relocatable.";#i;
1 '"Rotations, Flips and Scrolls always operate on the visible contents of the window and they finish by performing the same function as
1 '"RANDOMIZE
1 '"P.S. It is possible to solve this month's competition in only9 key presses. So give it a go."
1 '"Other back issues are available for the cover price (post and packing included) from Argus Press Software at Liberty House."
1 '"Lets look at an example."'"2310
1 '"If you are having problems getting to grips with your Spectrum, then please write in to"
1 '"I am sure you can think of more."
1 '"Even if you use microdrives, thefastest way to overcome this problem is to write the extra data into a programs with only DATA lines and MERGE with the program which reads and prints. This may seem less professional than OPENing and CLOSEing files,but it's easier, faster and lessliable to lead to confusion."
1 '"Any data containing blocks of zeros (not just screens) can be compressed considerably using this routine."
1 '"Addresses are aligned without wasting memory with spaces. The trick is to enter the colour control code for yellow ink (extended mode, caps shifted 6) and hit DELETE once."
1 '"60 IF c$(1)
1 '","a little out of date considering","the demise of the 16K model.","How does '
1 ' sound?","My final point concerns the now","famous 16/48 glue. When I saw","the word 'NEW' on the cover of","issue 19, I thought maybe you","had done something about it.","When I finally got to my","cassette via a sharp pen-knife","and a pair of scissors,the","cassette case had cracked, and "
1 $8888888888888888888888888888888888888888888888888888888888888888888888
1 #p;"H = HELP"'"P = PAUSE"'"R repeats the previous command"'"Q = QUIT"
1 #p''"Once the jammer has been"'"destroyed, you can return to"'"your spaceship by pressing your DETECTOR."
1 #p'"Your mission is to find the"'"LUDOIDS |, and destroy their"'"Trans-Mat jammers"
1 #p'"The following letters"'"ON THEIR OWN have special"'"meanings"
1 #p'"The Computer will tell you what happens. You tell the computer what you want to do by typing inENGLISH and then pressing
1 #p'"LOAD- allows you to load the"'"details back again."
1 #p'"F = Go FORE/FORWARD"'"A = Go AFT ...etc"''"V or L Shows the VIEW"'"I = INVENTORY (""What have I got with me ?"")"
1 #p'"Avoid negatives or trying to do more than one thing at a time."
1 #P''"SAVE- will save details of the game at any point to tape, in two short pieces of code"
1 #P''"Hi-res full screen pictures willremain displayed until you pressany key."
1 "zzzzzz...":
1 "the inlay card ripped.","If you know who is responsible","for the packaging,I suggest you:","","a)Show him how issues 1 to 11","were packaged, using perspex to","hold the cassette case onto the","card and,","","b)Put him in a white suit, paste","his back to a large white board","using (of course) 16/48","superglue, and suspend him from","a helicopter as in the T.V. ad.",""
1 "prog+673":
1 "prog+211":
1 "or circles you have to INPUT theradius or curvature.","","Enclosed shapes can be filled with ink or one of 4 shading patterns."
1 "library 2"
1 "library 1"
1 "leaving a trail of 3D brick wallbehind you.",""
1 "end1","00010304
1 "end1","00000404
1 "and worked all the way through","to the article on interrupt","modes; a subject which, until","then, I had tried to avoid.","However, I now not only","understand it, but have written","several routines to get screen","dumps on my printer from machine","code games, using interrupt mode","2.",""
1 "You will have to ram the city.":
1 "You take a ";m$:
1 "You see nothing more to help you":
1 "You made it !":
1 "You kill it.":
1 "You hear a bell ring in the"'"distance":
1 "You have with you;":
1 "You have nothing to eat":
1 "You have nothing to drink":
1 "You have not destroyed the"'"Ludoid city & their jammers.":
1 "You have already done that.":
1 "You first have to trap them in
1 "You finally took ";
1 "You drown.":
1 "You drop the ";m$:
1 "You don't find anything":
1 "You do not have the correct key":
1 "You cannot"
1 "You cannot go in that direction":
1 "You can see; ";m$
1 "You are not strong enough":
1 "You are killed":
1 "You are in the torpedo room."'Y$;"a bell,and controls to fire a torpedo":
1 "You are in the sea."'"In the distance you can see the LUDOID| city."
1 "You are in the periscope room.":
1 "You are in the control room of avery leaky minisub.":
1 "You are in a store room":
1 "You are in a small compartment. You see a hatch.":
1 "You are ignored":
1 "You are confronted by a LUDOID| guard Octopus.":
1 "You are at the bottom of a"'"ladder":
1 "You are at periscope depth":
1 "Which one ?"'"(Remember this is a submarine)":
1 "Water pours in."'"You are sucked into the water."
1 "WINDOWS
1 "Time passes...":
1 "This puts a
1 "This is a Brian Howarth trade mark. To get to a named location(E.g. the kitchen) you must type""GO KITCHEN"". You might think
1 "This SAVEs this stage of the"'"game on to tape."'"Do you want to carry on ? Y/N":
1 "This LOADS a previous game from tape"'"Do you want to continue ? Y/N"
1 "There is no reply":
1 "There is an associated set of utilities called the SCREEN MACHINE. This has a selection ofmachine code routines for addingor manipulating screens. If you have been a regular 16/48 readeryou will find nothing new here."
1 "The torpedo is armed, but it"'"gets stuck half way out of the firing tube":
1 "The sub moves forewards":
1 "The sub is heading west":
1 "The sub is heading east":
1 "The sub collides with a large"'"object."
1 "The periscope is turned to the NORTH":
1 "The next page shows a table of scores for all the programs in this review. The maximum mark ineach category is 5. A zero mark indicates that a function is notavailable."
1 "The leaks get worse":
1 "The hatch is open by a large"'"lever.":
1 "The fill routine can be defined in almost unlimited ways and canproduce amazing efects.","end1"
1 "The city explodes !":
1 "The Compartment is flooding":
1 "That's all for this month.
1 "TOWER.SCR"
1 "TOWER.COD"
1 "TOWER.BAS","REVIEWS (48K)","16/48PAD (48K)","library 2","comp21","CROSSWORD","end2"
1 "TOWER.BAS"
1 "Steven Hayward writes in with a few comments and some neat
1 "Sorry, I didn't understand."'"Try again.":
1 "So just to recap-","","POKE MEM+1,y","POKE MEM+3,x","POKE MEM+10,h","POKE MEM+23,w","RANDOMIZE
1 "Secondly, isn't the name '
1 "SPEED
1 "Rewind Tape & play to
1 "REWIND TAPE & PLAY":
1 "Put empty cartridge in drive 1"'"
1 "PROG+632":
1 "POKE 32587,STEP IN TONE.INCREASEFOR A FASTER RISE IN TONE."
1 "PLAY THE TAPE":
1 "On the whole your magazine is","pretty good, but there are a few","points I would like to raise.","Firstly, how about improving","the 16/48 character set. It","looks very good at first glance,","but that's until you start","trying to read a lot of it. Also","the choice of colours in","
1 "Neil Steven's 3D maze game. Thisprogram loads instructions and code first. The usual proceduresstill apply for back up copying."
1 "Name ? ";m$'"Drive ? ";m:
1 "Mike Biddell's educational program on number bases. Bases from 2 to 16 and a test to weed out the dilettantes.","Yaz gets to grips with grisly Gremlins in his great, graphic Gargantuan (48K) column."
1 "Make sure that your map is"'"accurate":
1 "MC ERROR":
1 "Loading code":
1 "Like PAINT PLUS, it doesn't drawon the bottom two lines of the screen.","","Value for money 10/10!","end2"
1 "LUDOIDS #7"
1 "Just to make it worthwhile for","you to read all this ^%='&/@!+!","I've included a couple of","machine code routines. There is","a cls routine which can clear to","the left or the right, and a","sound routine which sounds tones","which increase in pitch.","By the way, don't credit me for","this character set, I got it","from a previous 16/48."," Yours faithfully,",""," Steven Hayward"," WOLVERHAMPTON"
1 "Just make sure that the Gremlinscan't use it. Take a torch to
1 "It will not go up or down,"'"HOWEVER...":
1 "It does a lot. take it to the
1 "In which direction ?":
1 "IF IT WASN'T SYMMETRICAL IT WOULD BE A GRANNY","ROBIN'S MAID","THE LATIN NAME FOR THE EMERALD ISLE","IN THIS ALPHABET YOU DASH YOUR Ts AND DOT YOUR Es","THE KING WHO SERVED UP JOHN'S HEAD TO SALOME"
1 "Hi there !":
1 "Gizmo is hiding in the laundry
1 "Gizmo does have a use! Get on
1 "For those of you who remember the sketch pad program in issue 5, this will make you forget it.","The machine code library continues with a routine for pixel scrolling a window on screen."
1 "First and second prizes of `50 & `25 worth of NIKE sportswear as well as 10 copies of ELITE's ""Frank Bruno's Boxing"" on offer.","Another puzzle, but this one is just for fun."
1 "EXAMine things":
1 "ENTER the word ";
1 "ENTER NAME OF CODE ";N$:
1 "ENLARGE
1 "EASE OF USE
1 "Don't bother with this Grem yet.Go and find a knife. where are
1 "Do you want the instructions ? (Y/N)"
1 "Do some thing with the periscope":
1 "DETECTOR","HARPOON","LIFEJACKET"
1 "Chapter 7 of our 48K graphic adventure. This month an under- water saga.","TOWER OF HANOY. A horribly difficult card game from Paul Reynolds.","Graphics packages. If you reallywant to get into computer art don't spend any money until you have run this month's reviews."
1 "CROSSWORD"
1 "CIRCLES
1 "BFX-1","letter","BEGIN 4","bases (48K)","16/48D&G21 (48K)","LUDOIDS#7 (48K)","end1"
1 "As soon as you surface the mini-sub is hit by a missile.":
1 "Are you sure ? Y/N"''"n.b. Press ""X"" to NEW this"'"program."
1 "After the explosion take Stripe
1 "After spending 3 days trying to","get my latest machine code","routine to work, I came to the","conclusion that life on the","whole and machine code in","particular was not all that it's","cracked up to be.","","So with nothing to lose except","a head-ache, I decided to look","through a few 16/48 machine code","tutors. I started from tutor 1"
1 "About 18 month ago I reviewed the only Spectrum sketch pad program worth considering at thetime - Melbourne Draw. But how does it compare with today's pixel manipulators?"
1 "ATTRIBUTES
1 "A TRIGONOMETRICAL LETTUCE","THE OIL USED IN OIL PAINT","THE 2ND LONGEST RIVER IN AFRICA","A MEMBER OF THE ANTIPODEAN COMMONWEALTH FORCES","BEAK, WEBBED FEET, LAYS EGGS, BUT NOT A DUCK OR EVEN A BIRD","A NON FELONIOUS FIDDLE","THE FOUNDER OF THE LONDON POLICE"
1 "A CORPSE FROM CARD AVE","AMATEUR RADIO OPERATOR","THE MONTH AFTER NEXT","A SHOUT AND A BACKWARD GIRL SPELL OUT THIS INSTALLATION","EGG ON","A NEW TESTAMENT BOOK ABOUT MIXEDUP CATS?","MUSLIM CIVIL OR RELIGIOUS LEADER","THE ""LED"" VERSION IS LOUDER THANTHE FLYING ONE"
1 "9";"The":
1 "80 LET count=count+1","count the labels so that you know how many stamps to buy!","90 GOTO 30","Do the next label."
1 "7";" Press Any Key ":
1 "63319",174
1 "63179",46
1 "6";"TIME:"
1 "6","42","2020","22","1500","1","1500","16","2050","29","2060","49","2060"
1 "6","1","beg","2","beg","3","beg","4","beg","33","2550","76","2550"
1 "6"*A,B-256
1 "6")="u")+("and Down"
1 "5")="w")+("up,"
1 "41165",hb:
1 "41164",lb:
1 "4";" ":
1 "4")="e");
1 "31000"+(21
1 "3",o;"This month we give a short routine (only 33 bytes) which will scroll the contents of any size of window. As written it scrolls upward, but when you seehow it is done you shouldn't have any trouble making it work downwards."
1 "3","22","3100","21","3500","5","1500"
1 "3","21","3000","76","3120","8","3150"
1 "3")="s")+("East,"
1 "25")="1":
1 "23658",o:
1 "23606",o:
1 "23301",(k$="q")+2
1 "23300",16
1 "2")="n")+("Aft,"
1 "18"+n)="G"
1 "18"+M)=r$:
1 "18"+M)="G":
1 "18")="1":
1 "16/48PAD"
1 "16/48D&G21"
1 "16/48#21/2"
1 "16/48#21/1"
1 "16","214","254","214","214","254","238","56","82","169","20","69","146","84","33","138","0","32","48","190","253","62","48","32"
1 "16")="w":
1 "16")="n":
1 "16")="e":
1 "15")="1":
1 "14","76","1090","77","1040","21","1500","42","1020","5","1050","6","1100","28","1070","29","1070","22","1150","50","1200","23","1200","51","1250","24","1250","31","1070"
1 "13","72","1525","74","1525","6","2900","0","1530","8","1520","1","1530","2","1570","3","1590","24","1590","4","1610","23","1610","21","2000","22","1000"
1 "12",o;"The game starts at the point in
1 "12",o;"In all, a fun game with a
1 "12",o;"Don't be fooled by the cute
1 "10 RESTORE 1000","The next READ will start lookingfor data at line 1000.","20 LET count=0","Set counter to zero.","30 READ n$","LET n$ = the next data item.","40 IF n$=""END""
1 "1","22","3000"
1 "1 INTRODUCTION","2 PAINT PLUS","3 THE ARTIST","4 GRAFPAD","5 16/48PAD","6 CONCLUSIONS","Q QUIT"
1 ","When all the zeros are done we can do the next byte.","
1 ","VALUE!
1 ","Stop if you have read the last name and address."
1 ","SHADE/FILL
1 ","SCALING
1 ","LOOP again if we have not done all the rows."," RET","Back to BASIC."
1 ","If the counter reaches 0(or 256)then exit from the count loop."," DEC BC","One less byte to do."," LD A,B","Check whether we have finished."," OR C","A will be 0 if BC=0."," JR NZ,
1 ","If some zeros still left repeat this loop."," JR
1 ","If not zero then go to the exit from the count routine."," INC HL","Point to the next byte."," INC E","Add 1 to the count."
1 ","If not zero go back and do the next byte."," PUSH DE","Save the pointer so that we can use E as a counter."," LD E,1","Set zero counter to 1."
1 ","If counter is zero then we go back and do the next byte.","
1 ","If byte not zero then transfer the next byte."," LD A,(HL)","If the last byte was zero this one is the zero counter."," INC HL","Move the pointer on."
1 ","If BC=0 then jump to exit."," OR A","Check byte for zero."," JR NZ,
1 ","FULL SCREEN
1 ","FLIP/ROTATE
1 ","Exit if we have finished."
1 ","Do the next byte."
1 ","Carry on counting zeros if we have not finished."
1 ","CURVES
1 ","","","This demo shows","one way of","using the window.","","If we load the","code at MEM","(in this case","MEM=32000)","We must...","","POKE MEM+1,y","","POKE MEM+3,x","","POKE MEM+10,h","","POKE MEM+23,w","","and call the","routine with","","RANDOMISE USR MEM"
1 "(300+100*
1 "'''"PRESS Q TO LOAD THE NEXT PROGRAM"
1 "''"Have you destroyed the LUDOID'S|base ?"'"Are TRANS-MATS safe to use ??"'"Find out next time."
1 "''"Cursor"'"keys"'"move *"''"
1 "''"Correct entries enter a draw on 15th OCTOBER. 1st prize `75 NikeSportswear voucher. 2nd prize a `25 voucher. Plus
1 "'"When you see the picture use keys
1 "'"If it does not verify type GOTO GO":
1 ""SEP85""","If the 2nd to 6th letters of c$ are not equal to this month....","
1 ""Robert Maxwell Esq."",""33 Holborn
1 "","You pays your money, and you takes your choice."
1 "","You can use the PAINT PLUS software with the Grafpad (why anyone would want to beats me!) or you might even hack into 16/48PAD and change the basic toaccept Grafpad input.","","","What more could you want?"
1 "","When you do produce a Spectrum masterpiece, why not send it to us and get your name in Bytes!","end1"
1 "","This package is an updated and slightly improved version of P&P's old ""Paintbox"" program.","","The package is functional, but short on drawing facilities. Youare limited to drawing lines between points. If you want arcs"
1 "","This is the most sophisticated of the software packages.","It has a very powerful airbrush function which alows you easily to define the brush area and spray pattern. Imagine moving a cursor around the screen and"
1 "","There is a magnify by 8 facilitywhich is greatly inferior to the one on Melbourne Draw."
1 "","The words seem","to come from","nowhere because","they are printed","in blue ink on","blue paper.","","Since the routine","only scrolls the","ink, you don't","see it until it","scrolls into the","line above.","",""
1 "","The overlay mode is a powerful facility which enables you to cut and paste portions of your design. It will even stretch or squeeze sections of screen in either direction."
1 "","The UDG functions are very good.You can have up to 5 banks of UDG's in memory at one time."
1 "","The 90 degree window rotation isunique and the window facilitiesin general make the program veryuseful.","","I found the key layout awkward and the lack of a magnification routine would make me revert to Melbourne Draw for fine work."
1 "","So what do you get for all this money? Well, you get some very sophisticated hardware in the form of an A4 graphics tablet and some excellent software by Jon Ritman."
1 "","Of course `9.95 is a lot to pay for a manual, but this is easilythe best book on screen creationand manipulation on the Spectrumthat I have seen.",""
1 "","It takes time and effort to get the best out of this packeage, but the power is there and it would be hard to do better without added hardware.","end2"
1 "","I reviewed this in issue 6 and said that it was the ultimate inSpectrum graphics aids. This is still true. If you are serious about Spectrum graphics then youcan do no better than to invest in a Grafpad."
1 "","All the programs reviewed will allow you to create high res' designs and let you define User Defined Graphics. Although they all do the same job their pricesrange from
1 "","A very important, but commonly overlooked, part of any softwarepackage is the manual. The P+ manual is excellent.","end1"
1 """"""""""""""""""""UUUU
1 """""""""""""""""""""""""""""
1 " POP AF","Get the counter of the stack."," DEC A","decrement the counter."," JR NZ,
1 " OR A","Check counter for zero."," JR Z,
1 " Number base conversion test. "
1 " Melbourne Draw has aged well. For value and ease of use it would still be my choice for most situations."
1 " LD HL,32090","Point HL at the compressed file."," LD DE,4000H","Point DE at the display file."," LD BC,6912","BC holds the length of the file when expanded."
1 " LD HL,16384","Point HL at display file."," LD DE,32090","Point DE at storage location."," LD BC,6912","Put display file length in BC.","
1 " LD A,E","Fetch the count."," POP DE","Get the pointer off the stack."," DEC A","Remove the original 1 from the count."," LD (DE),A","Put the zero count in the compressed file.","
1 " JR Z,
1 " JR NZ,
1 " JP PO,
1 " If you need lots of power you will have to go for ARTIST and if you can justify the expense then buy a Grafpad."
1 " INC DE","Point to the next location."," DEC BC","One less left to do."," LD A,B","Check whether we have finished."," OR C","A will be 0 if BC=0."," JR Z,
1 " However, you have a perfectly acceptable, but by no means perfect (Thanks a million!-Ed.) graphics package with 16/48PAD. So why worry?"
1 " POP DE","Get the upper row address off the stack into DE."," PUSH HL","Save the lower row address on the stack. It will be the upper row address next time."," LD B,0","Empty the B register as LDIR will only need 32 bytes max."," LD C,WIDE","Load BC with the width of the window in bytes."
1 " POP BC","Retreive x,y co-ordinates."," LD A,HIGH","Load the A register with the height of the window(in pixels).This acts as a counter.","
1 " LDIR","Move the row of pixels up."," POP HL","Retreive the lower row address."," POP BC","Retreive the x,y co-ordinates."," POP AF","Retreive the row count."," DEC A","One row less left to do."
1 " LD B,Y","Put upper Y co-ordinate in B."," LD C,X","Put left X co-ordinate in C."," PUSH BC","Save BC because B is corrupted by the ROM routine."," CALL 22AAH","Call the pixel address routine. HL now holds address of top row."
1 " JR NZ,
1 " DEC B","Drop Y by one to find the address of the next row down."," PUSH BC","Save the x and y values."," PUSH HL","Save the upper row address on the stack."," CALL 22AAH","Call the ROM to put the lower row address in HL."
1 !KY6-!kY66
1 !JY6-!jY66
1 !JY6$#6$!jY6$#6$
1 !! $$$
1 !! $$
1 you will return to this page and the picture will remain as you left it."
1 with this mag toover `140 for he GRAFPAD.","end2"
1 vertical flip,
1 tohere^.
1 to"'"answer a"'"clue."''"
1 to save the program to a blank tape"''"
1 to run the program againPress
1 to read again,
1 to read again or,
1 to quit & load D&G.":
1 to quit & load 16/48PAD.":
1 to produce the unscrambled screen."''"If you press
1 to move, Cursor sets size
1 to move on."
1 to load BFX."
1 to go backwards or
1 to fetch the frame. PRESS
1 to combine all ink or
1 to cancel.)"
1 to cancel. "
1 to XOR ink,
1 to NEW it"
1 series of Adventure games?
1 scroll ink.
1 saves to Microdrive"''"
1 or cursor,
1 or cursor to move corner
1 or cursor
1 or ENTER to cancel. "
1 n=next screen ":
1 moves on.)"
1 in issue 19","combined with the stick-like","character set, forced me to","break in and change the ink and","paper colours."
1 horizontal flip,
1 games & T shirts went to:"'"
1 forthis^.
1 for yes) "
1 for the menu."
1 for the first 10."
1 for menu. "
1 for flash. "
1 for brightness. "
1 for border colour. ":
1 for PAPER colour. ":
1 for INK colour. "
1 changes"'"mode"'"(across or"'"down)"''"Press"'"
1 cancels.":
1 cancels."
1 cancels. ":
1 cancels. "
1 backpage,
1 WINDOW SCROLL
1 TO SEE A DEMO SCREEN"
1 TAPE 21";
1 Special Commands"
1 STOP THE TAPE
1 QUITS"''"
1 Q=quit program "
1 PUSH DE","Put the last address of the fileon the stack."," POP BC","Fetch the final address into BC."," RET","Back to basic."
1 PUSH AF","The zero loop starts here by saving the the counter."," LD A,0","Fetch a zero."," LD (DE),A","Put a zero on the screen."
1 PUSH AF","Save the counter"
1 POP AF","Restore the Stack Pointer to thereturn address."," RET","Back to Basic."
1 M.P. Biddell 1985"
1 LUDOIDS| #7 ":
1 LOADED - PRESS ANY KEY
1 LD A,(HL)","Get the next byte."," OR A","Check for zero."," JR NZ,
1 LD A,(HL)","Fetch byte."," LDI","Move (HL) to (DE), increment HL and DE, decrement BC."," RET PO","If BC=0 we have finished."," OR A","Check byte for zero."
1 LD A,(HL)","Fetch byte."," LDI","Move (HL) to (DE), increment HL and DE, decrement BC."
1 INSTRUCTIONS
1 How to play the game"
1 DON'T RUN OR CLEAR:GOTO 1.":
1 DEC E","Remove the original 1."," LD A,E","A now holds the number of zeros to be added."," POP DE","Fetch the pointer."," LD (DE),A","Store the count."," INC DE","Point to the next space."," JR
1 B";b;"
1 Adventures.
1 AGAIN ? (Y/N)
1 = PAINT PLUS","","
1 = MELBOURNE DRAW"
1 = GRAFPAD","","
1 = ARTIST","","
1 = 16/48PAD","","
1 16/48 Magazine Ltd. *6\$:
1 ** *************************
1 (for kolour!) mode the attribute cursor is moved with the direction keys. CAPS SHIFT sets the attributes to the values shown at the bottom of the screen."
1 for tape,";
1 for microdrive,";
1 for menu."
1 VARIABLES
1 UP & RIGHT"'"
1 UP & RIGHT"
1 SET UP MAZE
1 PRINT SCREEN
1 INVALID
1 INTRODUCTION
1 HOW IT WORKS
1 DOWN & RIGHT"'"
1 DOWN & LEFT"'"
1 CHANGE DIR
1 H= Can't get anywhere?
1 GAME
1 G= How to kill Stripe?
1 F= How to kill the gremlins?
1 E= What does the remote do?
1 D= Locked door?
1 C= Dozer problems?
1 B= One hundred and eighty!
1 A= Where is Gizmo?
1 HELP MENU
1 %
1 3
1 HELP MENU
1 (
1 Program by Barry Thorne Graphics by Jim Dann
1 BY MOVING IT AROUND A MAZE. "
1 ";
1 ";